﻿
Public Class CamcopHomePanel

    'Always center Camera selection panel :
    Private Sub CamcopHomePanel_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
        Me.SuspendLayout()
        Dim x As Integer = CInt((Me.Width - CSP.Width) / 2)
        Dim y As Integer = CInt((Me.Height - CSP.Height) / 2)
        CSP.Location = New Point(x, y)
        Me.ResumeLayout()
    End Sub
    'Camera Load requested :
    Public Event CameraLoadRequested As EventHandler(Of CameraLoadRequestedEventArgs)
    Private Sub CSP_CameraLoadRequested(sender As Object, e As CameraLoadRequestedEventArgs) Handles CSP.CameraLoadRequested
        RaiseEvent CameraLoadRequested(Me, e)
    End Sub

End Class
